home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / cli / requestlist.lha / ExecuteMe.script next >
Text File  |  1995-09-16  |  700b  |  30 lines
  1. ; AmigaDOS script example for RequestList
  2.  
  3.  
  4.    echo "Deluxe Paint IV" > t:templist
  5.    echo "Power Packer" >> t:templist
  6.    echo "Directory Opus" >> t:templist
  7.    echo "Amiga Shell" >> t:templist
  8.  
  9.    RequestList > env:selected TITLE="Please select program to load" LISTFILE=t:templist
  10.  
  11.    delete t:templist QUIET
  12.  
  13.    if $selected eq "1"
  14.       echo "You selected, 'Deluxe Paint'."
  15.    endif
  16.    if $selected eq "2"
  17.       echo "You selected, 'Power Packer'."
  18.    endif
  19.    if $selected eq "3"
  20.       echo "You selected, 'DirOpus'."
  21.    endif
  22.    if $selected eq "4"
  23.       echo "You selected, 'Shell'."
  24.    endif
  25.    if $selected eq "-1"
  26.       echo "You closed the window."
  27.    endif
  28.  
  29.    delete env:selected QUIET
  30.